home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / windows / fpnl3.zip / FPNL3DCU.ZIP / FLOATTES.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-02  |  1KB  |  71 lines
  1. unit FloatTest;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, TFloatPanel, StdCtrls, Buttons;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     imgSmall: TImageList;
  12.     imgNew: TImageList;
  13.     FloatPnl1: TFloatPnl;
  14.     FloatPnl2: TFloatPnl;
  15.     Button3: TButton;
  16.     FloatPnl3: TFloatPnl;
  17.     procedure FloatPnl2ButtonClick(Sender: TObject);
  18.     procedure FloatPnl2Change(Sender: TObject);
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure Button2Click(Sender: TObject);
  21.     procedure Button3Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   Form2: TForm2;
  30.  
  31. implementation
  32.  
  33. uses ViewToolbars;
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TForm2.FloatPnl2ButtonClick(Sender: TObject);
  38. begin
  39.  { ShowMessage((Sender as TComponent).name);}
  40. end;
  41.  
  42. procedure TForm2.FloatPnl2Change(Sender: TObject);
  43. begin
  44.   ShowMessage((Sender as TComboBox).text); 
  45. end;
  46.  
  47. procedure TForm2.Button1Click(Sender: TObject);
  48. begin
  49. floatpnl1.visibleDock := not floatpnl1.visibleDock;
  50.  
  51. end;
  52.  
  53. procedure TForm2.Button2Click(Sender: TObject);
  54. var
  55.  tflpnl : TFloatpnl;
  56.  i : integer;
  57. begin
  58.   for i := 0 to ToolbarList.count -1 do
  59.   begin
  60.     tflpnl := Toolbarlist.items[i];
  61.     ShowMessage (tflpnl.caption);
  62.   end
  63. end;
  64.  
  65. procedure TForm2.Button3Click(Sender: TObject);
  66. begin
  67.   ShowViewToolbarsDlg;
  68. end;
  69.  
  70. end.
  71.